home *** CD-ROM | disk | FTP | other *** search
/ CD/PC Actual 76 / DVD Actual 1 Marzo 2003.iso / Trial / TurboCAD 7.1 Pro / Data.Cab / F25925_Module1.bas < prev    next >
Encoding:
BASIC Source File  |  2000-11-10  |  1.6 KB  |  70 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3. Type ContGeo
  4.     NVer As Long     ' Count of Vertices in object
  5.     xVer() As Double  'coordinates of Vertices
  6.     yVer() As Double
  7.     GrInd As Long   ' Index of graphic in graphics collection
  8.     Closed As Boolean  ' True - if object is closed
  9.     xSum As Double     ' Sum of X-coordinates of vertices of the graphic
  10.     ySum As Double
  11.     Position As String ' position in resulting object - External or Internal
  12.     xyMax(2) As Double ' Max cootdinates of extents of the object
  13.     xyMin(2) As Double  ' Min cootdinates of extents of the object
  14.     TakePart As Boolean  ' True - if object took part in operation
  15.     GrType As String    ' Type of the graphic
  16.     r As Double ' Rarius if Object Circle Or Arc
  17.     xc As Double
  18.     yc As Double
  19. End Type
  20. Type DDD
  21.     LL As Double
  22.     xx As Double
  23.     yy As Double
  24.     jj As Long
  25.     jj1 As Long
  26.     kk As Long
  27.     Tangent As String
  28. End Type
  29.  
  30. Type TTT
  31.     Bet As Double
  32.     jInit As Long
  33.     kk As Long
  34.     ddir As Integer
  35. End Type
  36.     
  37. Type HorizInt
  38.     xInt As Double
  39.     yInt As Double
  40.     Ncont As Long
  41. End Type
  42. Type GrWithUnVis
  43.     xVer() As Double
  44.     yVer() As Double
  45.     Pen() As Boolean
  46.     TakePart() As Boolean
  47. End Type
  48.  
  49.  
  50. Global ContSel() As ContGeo
  51. Global objApp As XApplication
  52. Global Drs As Drawings
  53. Global Dr As Drawing
  54. Global Grs As Graphics
  55. Global Gr As Graphic
  56. Global Vis As Views
  57. Global Vi As View
  58. Global PRes As PickResult
  59. Global PEnt As PickEntry
  60. Global ContRes As ContGeo
  61. Global Const Pi = 3.14159265359
  62. Global Eps As Double
  63. Global Const nVCirc = 41
  64.  
  65. ' 65
  66.   
  67. Sub Main()
  68. End Sub
  69.  
  70.